setdisplay(320,200,32,1):paper(0xFFFFFF):ink(0x000000):pen(0x000000):cls
n=numdrivescd
for a=0 to n:prints(cdinserted(a)):next
waitkey
